home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
earkit
/
news
/
thor
/
hd-install
/
thor2.5a_upgrade
/
patchthor
< prev
next >
Wrap
Text File
|
1998-05-24
|
2KB
|
78 lines
;
; Bugfix patch for THOR 2.5 - uses SPatch Copyright (C) SAS Institute, Inc.
;
FailAt 21
echo "THOR 2.5 seems to be installed in `GetEnv THOR/ThorPath`"
Assign THORPCH: `GetEnv THOR/ThorPath`
; Patch the THOR executable
echo "Patching THOR...."
spatch -pthor.pch THORPCH:thor
copy THOR.new THORPCH:THOR
delete THOR.new >nil:
; Patch the ConnectTHOR executable
If EXISTS "THORPCH:ConnectThor"
echo "Patching ConnectTHOR...."
spatch -pconnectthor.pch THORPCH:ConnectTHOR
copy ConnectTHOR.new THORPCH:ConnectTHOR
delete ConnectTHOR.new >nil:
EndIf
; Patch the utgui.library
echo "Patching utgui.library...."
spatch -putgui.pch THORPCH:libs/utgui.library
copy utgui.new THORPCH:libs/utgui.library
delete utgui.new >nil:
; Patch the utnet.library
If EXISTS "THORPCH:libs/utnet.library"
echo "Patching utnet.library...."
spatch -putnet.pch THORPCH:libs/utnet.library
copy utnet.new THORPCH:libs/utnet.library
delete utnet.new >nil:
EndIf
; Patch the bbsread.library
echo "Patching bbsread.library...."
spatch -pbbsread.pch THORPCH:libs/bbsread.library
copy bbsread.new THORPCH:libs/bbsread.library
delete bbsread.new >nil:
; Patch the THOR.guide
echo "Patching THOR.guide...."
spatch -oTHOR.guide.new -pTHOR.guide.pch THORPCH:docs/THOR.guide
copy THOR.guide.new THORPCH:docs/THOR.guide
delete THOR.guide.new >nil:
; Patch the ConfigTHOR.guide
echo "Patching ConfigTHOR.guide...."
spatch -oConfigTHOR.guide.new -pConfigTHOR.guide.pch THORPCH:docs/ConfigTHOR.guide
copy ConfigTHOR.guide.new THORPCH:docs/ConfigTHOR.guide
delete ConfigTHOR.guide.new >nil:
; Copy some small stuff over.
Copy clone classes/#? sys:classes/ all quiet
Copy clone rexx/#? THORPCH:rexx/ all quiet
Copy clone bin/#? THORPCH:bin/ all quiet
Copy clone catalogs/#? THORPCH:catalogs/ all quiet
Copy clone docs/#? THORPCH:docs/ all quiet
Assign THORPCH:
FailAt 11
Which >NIL: MultiView
If $RC EQ 0
MultiView >NIL: thor25a.readme
Else
More >NIL: thor25a.readme
If $RC GT 0
Echo "Remember to read thor25a.readme!"
EndIf
EndIf
avail flush >nil:
echo "Update finished!"